home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / rkplus20.zip / RKPBRAND.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-08  |  2KB  |  65 lines
  1. Program RkpBrand;
  2.  
  3. {
  4.  This is a sample program using rkPlus.  It is a sample of a software
  5.  branding program that would be used by the user to enter their name
  6.  and registration key and create a key file.  This sample will create
  7.  a key file for the RkpDemo program, using a registration key which
  8.  would be generated by the programmer using the RkpGKey program.
  9. }
  10.  
  11.  
  12. Uses
  13.   Crt, Dos, RkPlus;
  14.  
  15.  
  16. Const
  17.   RkpBrandVer = '2.3';
  18.   MonthNames : Array[1..12] of String[3]
  19.   = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
  20.  
  21.  
  22. Var
  23.   kc          : Char;
  24.  
  25.  
  26. Begin
  27.   OwnerCode := 'ArgleBarbWotsLeeb';
  28.   ProgramCode := 'RkpDemo Three';
  29.   KeyFile := 'RKPDEMO';
  30.   WriteLn('RkpBrand ' + RkpBrandVer);
  31.   WriteLn('Software Branding Program for RkpDemo 3.x');
  32.   WriteLn('(c) 1991 TrendSoft, Inc.');
  33.   WriteLn;
  34.   Write('Enter name of person to register : ');
  35.   ReadLn(Reg.Name1);
  36.   WriteLn;
  37.   WriteLn('[D] Demo key');
  38.   WriteLn('[R] Registration key');
  39.   WriteLn;
  40.   Write('Type? ');
  41.   kc := UpCase(ReadKey);
  42.   WriteLn(kc);
  43.   If (kc in ['D','d']) then
  44.     Reg.Level := 0
  45.   Else
  46.     Reg.Level := 1;
  47.   WriteLn;
  48.   Write('Enter the registration key : ');
  49.   ReadLn(Reg.Key);
  50.   Reg.ID := 'RkpDemo';
  51.   Reg.Message := '(c) 1991 TrendSoft, Inc.';
  52.   Reg.Name2 := '';
  53.   Reg.Name3 := '';
  54.   VerifyKey;
  55.   If (Reg.Status <> Registered) then
  56.     WriteLn('Invalid key!')
  57.   Else Begin
  58.     SaveRegInfo;
  59.     If (Reg.Status = Registered) then
  60.       WriteLn(Reg.KeyPath + ' created.')
  61.     Else
  62.       WriteLn('Error creating file.');
  63.   End;
  64. End.
  65.